home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48_1 / pubdom.tar / pubdom / rbj / signin < prev   
Text File  |  1990-06-01  |  2KB  |  97 lines
  1. %%HP: T(3)A(D)F(.);
  2. @ SIGNIN - On Site Sign-In, Registration
  3. @ RBJ 6/01/90 
  4. DIR
  5.   IDATA \<< 
  6.     'Fname'   In
  7.     'Lname'   In
  8.     'PayMeth' In                            @ E.G. Cash, Chk #
  9.     'Fee'     In
  10.     'Street'  In
  11.     'City'    In
  12.     'State'   In
  13.     'Zip'     In
  14.     'Country' In
  15.     'Hphone'  In
  16.     'Wphone'  In
  17.   \>>
  18.   PRINT  \<<  
  19.     CLLCD -1 'Row' STO 
  20.     "    CHIP Handheld"  Ou
  21.     "     Conference"    Ou
  22.     "    June 2, 1990"   Ou
  23.     ""                   Ou
  24.     STD
  25.     "  Registration # " Rnum +  Ou
  26.     "Received $" Fee +            Ou
  27.     "  (" PayMeth + ")" +         Ou
  28.     CLLCD -1 'Row' STO
  29.  
  30.     Fname " " + Lname +             Ou
  31.     Street                          Ou
  32.     City ", " + State + " " + Zip + Ou
  33.     IF Country SIZE THEN Country           Ou END
  34.     IF Hphone  SIZE THEN "Home: " Hphone + Ou END
  35.     IF Wphone  SIZE THEN "Work: " Wphone + Ou END
  36.     7 FREEZE
  37.   \>>
  38.   Next  \<< 
  39.     CLEAR
  40.     Rnum Fname Lname 
  41.     Street City State Zip Country
  42.     Hphone Wphone
  43.     Fee PayMeth 
  44.     DEPTH \->LIST
  45.     "R" Rnum + OBJ\-> ATTD STO UPDIR
  46.     'Rnum' INCR Hnum MAX DUP 'Rnum' STO 'Hnum' STO
  47.     "Next #:" Rnum + "\010" + 1 DISP 1 FREEZE
  48.   \>>
  49.   Restore \<< 
  50.     "R" SWAP + OBJ\-> ATTD RCL UPDIR
  51.     LIST\-> DROP
  52.     'PayMeth' STO
  53.     'Fee'     STO
  54.     'Wphone'  STO
  55.     'Hphone'  STO
  56.     'Country' STO
  57.     'Zip'     STO
  58.     'State'   STO
  59.     'City'    STO
  60.     'Street'  STO
  61.     'Lname'   STO
  62.     'Fname'   STO
  63.     'Rnum'    STO
  64.     "Restored #:" Rnum + "\010" + 1 DISP 1 FREEZE
  65.   \>>
  66.   
  67.   Rnum  60
  68.   Hnum   0
  69.  
  70.   ATTD DIR END
  71.  
  72.   Kill   \<< UPDIR 'SIGNIN' PGDIR 18 MENU \>>
  73.  
  74.   In \<<                                    @ Given Variable Name
  75.     DUP "" + { "" \Ga } INPUT SWAP STO
  76.   \>>
  77.   Ou \<< 
  78.     IF 9 FS? THEN PR1 END
  79.     'Row' INCR 7 MOD 1 + DISP
  80.   
  81.   \>>
  82.   Fname   "Bill"
  83.   Lname   "Jones"
  84.   PayMeth "Chk 3456"                        @ E.G. Cash, Chk #
  85.   Fee     "25"
  86.   Street  "234 East 76th St"
  87.   City    "Chicago"
  88.   State   "IL"
  89.   Country "USA"
  90.   Zip     "60625"
  91.   Hphone  "312/455-8999"
  92.   Wphone  "708/234-4678"
  93.   Row     0
  94.  
  95. END
  96.  
  97.